﻿Public Class check_login

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtusername.Text = "amb" Then
            Dim nextform As ambulance = New ambulance
            nextform.Show()
            Me.Close()

        ElseIf txtusername.Text = "oper" Then

            Dim nextform As tell_main = New tell_main
            nextform.Show()
            Me.Close()

        ElseIf txtusername.Text = "check_up" Then
            Dim nextform As main = New main
            nextform.Show()
            Me.Close()

        ElseIf txtusername.Text = "it" Then

        ElseIf txtusername.Text = "sms" Then
            Dim nextform As main_sms = New main_sms
            nextform.Show()
            Me.Close()
        End If
    End Sub

    Private Sub check_login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class